perm filename PARMS.PAS[S1,ALS] blob sn#468732 filedate 1979-08-23 generic text, type T, neo UTF8
(*$A+,D+*)
program TestOfPassingLotsOfParameters(Output);

var I : integer;

procedure VarSum(var I : integer; I1,I2,I3,I4,I5,I6,I7,
	I8,I9,I10,I11,I12,I13,I14 : integer);
   begin
   I := I1+I2+I3+I4+I5+I6+I7+I8+I9+I10+I11+I12+I13+I14;
   end;


function Sum(I1,I2,I3,I4,I5,I6,I7,
	I8,I9,I10,I11,I12,I13,I14 : integer) :  integer;
   begin
   Sum := I1+I2+I3+I4+I5+I6+I7+I8+I9+I10+I11+I12+I13+I14;
   end;

begin
VarSum(I,1,2,3,4,5,6,7,8,9,10,11,12,13,14);
writeln(I);
I := Sum(1,2,3,4,5,6,7,8,9,10,11,12,13,14);
writeln(I);
end.